/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / tm / tm-play.ELC.z / tm-play.ELC

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 73 74 65 76 65 40 61 |piled by| steve@a|
|00000020| 6c 74 61 69 72 2e 78 65 | 6d 61 63 73 2e 6f 72 67 |ltair.xe|macs.org|
|00000030| 20 6f 6e 20 53 61 74 20 | 4e 6f 76 20 31 35 20 31 | on Sat |Nov 15 1|
|00000040| 36 3a 35 31 3a 34 39 20 | 31 39 39 37 0a 3b 3b 3b |6:51:49 |1997.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 78 65 6d 61 63 73 2f | 32 30 2e 33 2f 78 65 6d |/xemacs/|20.3/xem|
|00000070| 61 63 73 2d 32 30 2e 33 | 2d 70 72 65 33 2f 6c 69 |acs-20.3|-pre3/li|
|00000080| 73 70 2f 74 6d 2f 74 6d | 2d 70 6c 61 79 2e 65 6c |sp/tm/tm|-play.el|
|00000090| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|000000a0| 6f 6e 20 32 30 2e 33 20 | 22 49 73 74 61 6e 62 75 |on 20.3 |"Istanbu|
|000000b0| 6c 22 20 58 45 6d 61 63 | 73 20 20 4c 75 63 69 64 |l" XEmac|s  Lucid|
|000000c0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000d0| 65 72 73 69 6f 6e 20 32 | 2e 32 35 20 58 45 6d 61 |ersion 2|.25 XEma|
|000000e0| 63 73 3b 20 32 32 2d 4d | 61 72 2d 39 36 2e 0a 3b |cs; 22-M|ar-96..;|
|000000f0| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|00000100| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|00000110| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|00000120| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|00000130| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 20 31 39 |xist in |Emacs 19|
|00000140| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000150| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000160| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000170| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|00000180| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|00000190| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|.     (s|
|000001a0| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|000001b0| 73 2d 76 65 72 73 69 6f | 6e 20 22 32 30 22 29 29 |s-versio|n "20"))|
|000001c0| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 60 74 |).    (e|rror "`t|
|000001d0| 6d 2d 70 6c 61 79 2e 65 | 6c 27 20 77 61 73 20 63 |m-play.e|l' was c|
|000001e0| 6f 6d 70 69 6c 65 64 20 | 66 6f 72 20 45 6d 61 63 |ompiled |for Emac|
|000001f0| 73 20 32 30 22 29 29 0a | 0a 28 6f 72 20 28 62 6f |s 20")).|.(or (bo|
|00000200| 75 6e 64 70 20 27 63 75 | 72 72 65 6e 74 2d 6c 6f |undp 'cu|rrent-lo|
|00000210| 61 64 2d 6c 69 73 74 29 | 20 28 73 65 74 71 20 63 |ad-list)| (setq c|
|00000220| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000230| 20 6e 69 6c 29 29 0a 0a | 0a 28 62 79 74 65 2d 63 | nil))..|.(byte-c|
|00000240| 6f 64 65 20 22 c0 c1 21 | 88 c2 c3 21 ac 82 c4 13 |ode "..!|...!....|
|00000250| c3 0d 42 15 c4 87 22 20 | 5b 72 65 71 75 69 72 65 |..B..." |[require|
|00000260| 20 74 6d 2d 76 69 65 77 | 20 62 6f 75 6e 64 70 20 | tm-view| boundp |
|00000270| 6d 69 6d 65 2d 70 72 65 | 76 69 65 77 2f 61 66 74 |mime-pre|view/aft|
|00000280| 65 72 2d 64 65 63 6f 64 | 65 64 2d 70 6f 73 69 74 |er-decod|ed-posit|
|00000290| 69 6f 6e 20 6e 69 6c 20 | 63 75 72 72 65 6e 74 2d |ion nil |current-|
|000002a0| 6c 6f 61 64 2d 6c 69 73 | 74 5d 20 32 29 0a 28 64 |load-lis|t] 2).(d|
|000002b0| 65 66 61 6c 69 61 73 20 | 27 6d 69 6d 65 2d 70 72 |efalias |'mime-pr|
|000002c0| 65 76 69 65 77 2f 64 65 | 63 6f 64 65 2d 63 6f 6e |eview/de|code-con|
|000002d0| 74 65 6e 74 20 23 5b 6e | 69 6c 20 22 c0 60 21 89 |tent #[n|il ".`!.|
|000002e0| 19 ad 9c 70 1a 60 13 c4 | 09 21 71 88 c5 c6 09 21 |...p.`..|.!q....!|
|000002f0| 21 88 70 c4 09 21 61 ad | 85 5c 6e 71 88 0b 62 29 |!.p..!a.|.\nq..b)|
|00000300| 29 87 22 20 5b 6d 69 6d | 65 2d 70 72 65 76 69 65 |)." [mim|e-previe|
|00000310| 77 2f 70 6f 69 6e 74 2d | 70 63 69 6e 66 6f 20 70 |w/point-|pcinfo p|
|00000320| 63 20 74 68 65 2d 62 75 | 66 20 6d 69 6d 65 2d 70 |c the-bu|f mime-p|
|00000330| 72 65 76 69 65 77 2f 61 | 66 74 65 72 2d 64 65 63 |review/a|fter-dec|
|00000340| 6f 64 65 64 2d 70 6f 73 | 69 74 69 6f 6e 20 6d 69 |oded-pos|ition mi|
|00000350| 6d 65 3a 3a 70 72 65 76 | 69 65 77 2d 63 6f 6e 74 |me::prev|iew-cont|
|00000360| 65 6e 74 2d 69 6e 66 6f | 2f 62 75 66 66 65 72 20 |ent-info|/buffer |
|00000370| 6d 69 6d 65 2d 61 72 74 | 69 63 6c 65 2f 64 65 63 |mime-art|icle/dec|
|00000380| 6f 64 65 2d 63 6f 6e 74 | 65 6e 74 20 6d 69 6d 65 |ode-cont|ent mime|
|00000390| 3a 3a 70 72 65 76 69 65 | 77 2d 63 6f 6e 74 65 6e |::previe|w-conten|
|000003a0| 74 2d 69 6e 66 6f 2f 63 | 6f 6e 74 65 6e 74 2d 69 |t-info/c|ontent-i|
|000003b0| 6e 66 6f 5d 20 34 20 6e | 69 6c 20 6e 69 6c 5d 29 |nfo] 4 n|il nil])|
|000003c0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 69 6d 65 |.(defali|as 'mime|
|000003d0| 2d 61 72 74 69 63 6c 65 | 2f 64 65 63 6f 64 65 2d |-article|/decode-|
|000003e0| 63 6f 6e 74 65 6e 74 20 | 23 5b 28 63 69 6e 66 6f |content |#[(cinfo|
|000003f0| 29 20 22 c0 09 21 c2 09 | 21 c3 09 21 ae 81 c4 c5 |) "..!..|!..!....|
|00000400| 09 21 c6 09 21 1e 07 1e | 08 1e 09 1e 5c 6e 89 1e |.!..!...|....\n..|
|00000410| 0b 65 57 ab 83 65 16 0b | 64 0e 5c 6e 57 ab 83 64 |.eW..e..|d.\nW..d|
|00000420| 16 5c 6e cc 89 89 1e 0d | 1e 0e 1e 0f d0 0e 09 42 |.\n.....|.......B|
|00000430| c7 0e 07 42 d1 0e 11 42 | 0e 08 42 42 42 16 0e 0e |...B...B|..BBB...|
|00000440| 12 ab 89 d3 0e 12 42 0e | 0e 42 16 0e d4 0e 0e 21 |......B.|.B.....!|
|00000450| 16 0d cf 0e 0d b7 41 89 | 16 0f 39 ab 91 d5 0e 0f |......A.|..9.....|
|00000460| 21 ab 8b 0e 0f 0e 0b 0e | 5c 6e 0e 0d 23 aa 9a 0e |!.......|\n..#...|
|00000470| 0f 3c ab 90 0e 0f 40 3b | ab 8a d6 0e 0b 0e 5c 6e |.<....@;|......\n|
|00000480| 0e 0d 23 aa 85 d7 d8 0e | 09 5c 22 2e 08 87 22 20 |..#.....|.\"..." |
|00000490| 5b 6d 69 6d 65 3a 3a 63 | 6f 6e 74 65 6e 74 2d 69 |[mime::c|ontent-i|
|000004a0| 6e 66 6f 2f 70 6f 69 6e | 74 2d 6d 69 6e 20 63 69 |nfo/poin|t-min ci|
|000004b0| 6e 66 6f 20 6d 69 6d 65 | 3a 3a 63 6f 6e 74 65 6e |nfo mime|::conten|
|000004c0| 74 2d 69 6e 66 6f 2f 70 | 6f 69 6e 74 2d 6d 61 78 |t-info/p|oint-max|
|000004d0| 20 6d 69 6d 65 3a 3a 63 | 6f 6e 74 65 6e 74 2d 69 | mime::c|ontent-i|
|000004e0| 6e 66 6f 2f 74 79 70 65 | 20 22 74 65 78 74 2f 70 |nfo/type| "text/p|
|000004f0| 6c 61 69 6e 22 20 6d 69 | 6d 65 3a 3a 63 6f 6e 74 |lain" mi|me::cont|
|00000500| 65 6e 74 2d 69 6e 66 6f | 2f 70 61 72 61 6d 65 74 |ent-info|/paramet|
|00000510| 65 72 73 20 6d 69 6d 65 | 3a 3a 63 6f 6e 74 65 6e |ers mime|::conten|
|00000520| 74 2d 69 6e 66 6f 2f 65 | 6e 63 6f 64 69 6e 67 20 |t-info/e|ncoding |
|00000530| 65 6e 63 6f 64 69 6e 67 | 20 70 61 72 61 6d 73 20 |encoding| params |
|00000540| 63 74 79 70 65 20 65 6e | 64 20 62 65 67 20 6e 69 |ctype en|d beg ni|
|00000550| 6c 20 72 65 74 20 63 61 | 6c 20 6d 65 74 68 6f 64 |l ret ca|l method|
|00000560| 20 74 79 70 65 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 | type ma|jor-mode|
|00000570| 20 6d 69 6d 65 2d 76 69 | 65 77 65 72 2f 64 65 63 | mime-vi|ewer/dec|
|00000580| 6f 64 69 6e 67 2d 6d 6f | 64 65 20 6d 6f 64 65 20 |oding-mo|de mode |
|00000590| 6d 69 6d 65 2f 67 65 74 | 2d 63 6f 6e 74 65 6e 74 |mime/get|-content|
|000005a0| 2d 64 65 63 6f 64 69 6e | 67 2d 61 6c 69 73 74 20 |-decodin|g-alist |
|000005b0| 66 62 6f 75 6e 64 70 20 | 6d 69 6d 65 2d 61 72 74 |fboundp |mime-art|
|000005c0| 69 63 6c 65 2f 73 74 61 | 72 74 2d 65 78 74 65 72 |icle/sta|rt-exter|
|000005d0| 6e 61 6c 2d 6d 65 74 68 | 6f 64 2d 72 65 67 69 6f |nal-meth|od-regio|
|000005e0| 6e 20 6d 69 6d 65 2d 61 | 72 74 69 63 6c 65 2f 73 |n mime-a|rticle/s|
|000005f0| 68 6f 77 2d 6f 75 74 70 | 75 74 2d 62 75 66 66 65 |how-outp|ut-buffe|
|00000600| 72 20 22 4e 6f 20 6d 65 | 74 68 6f 64 20 61 72 65 |r "No me|thod are|
|00000610| 20 73 70 65 63 69 66 69 | 65 64 20 66 6f 72 20 25 | specifi|ed for %|
|00000620| 73 5c 6e 22 5d 20 37 5d | 29 0a 28 64 65 66 61 6c |s\n"] 7]|).(defal|
|00000630| 69 61 73 20 27 66 69 65 | 6c 64 2d 75 6e 69 66 69 |ias 'fie|ld-unifi|
|00000640| 65 72 2d 66 6f 72 2d 6d | 6f 64 65 20 23 5b 28 61 |er-for-m|ode #[(a|
|00000650| 20 62 29 20 22 08 41 89 | 19 3a ab 86 5c 6e 41 09 | b) ".A.|.:..\nA.|
|00000660| b6 aa 84 09 5c 6e 41 6b | ad 84 c3 5c 6e c3 45 29 |....\nAk|...\n.E)|
|00000670| 87 22 20 5b 61 20 76 61 | 20 62 20 6e 69 6c 5d 20 |." [a va| b nil] |
|00000680| 34 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |4]).(def|alias 'm|
|00000690| 69 6d 65 2f 67 65 74 2d | 63 6f 6e 74 65 6e 74 2d |ime/get-|content-|
|000006a0| 64 65 63 6f 64 69 6e 67 | 2d 61 6c 69 73 74 20 23 |decoding|-alist #|
|000006b0| 5b 28 61 6c 29 20 22 c0 | 09 5c 6e 5c 22 87 22 20 |[(al) ".|.\n\"." |
|000006c0| 5b 67 65 74 2d 75 6e 69 | 66 69 65 64 2d 61 6c 69 |[get-uni|fied-ali|
|000006d0| 73 74 20 6d 69 6d 65 2f | 63 6f 6e 74 65 6e 74 2d |st mime/|content-|
|000006e0| 64 65 63 6f 64 69 6e 67 | 2d 63 6f 6e 64 69 74 69 |decoding|-conditi|
|000006f0| 6f 6e 20 61 6c 5d 20 33 | 5d 29 0a 28 64 65 66 61 |on al] 3|]).(defa|
|00000700| 6c 69 61 73 20 27 6d 69 | 6d 65 2d 61 72 74 69 63 |lias 'mi|me-artic|
|00000710| 6c 65 2f 73 74 61 72 74 | 2d 65 78 74 65 72 6e 61 |le/start|-externa|
|00000720| 6c 2d 6d 65 74 68 6f 64 | 2d 72 65 67 69 6f 6e 20 |l-method|-region |
|00000730| 23 5b 28 62 65 67 20 65 | 6e 64 20 63 61 6c 29 20 |#[(beg e|nd cal) |
|00000740| 22 8a 8c 08 09 7d 88 08 | 62 88 c2 c3 0c 5c 22 41 |"....}..|b....\"A|
|00000750| c5 0c 21 1e 06 89 1b ad | e1 c7 c8 c9 0e 5c 6e 5c |..!.....|.....\n\|
|00000760| 22 21 cb 89 1e 0c 1e 0d | 1e 0e 0b 41 40 ab 85 08 |"!......|...A@...|
|00000770| 16 0d aa 8f cf d0 cb d1 | 23 ab 85 d2 95 54 aa 81 |........|#....T..|
|00000780| 65 16 0d 0e 0d 62 88 d3 | 0e 0d 09 0e 0e 23 88 d4 |e....b..|.....#..|
|00000790| d5 21 88 d6 c6 d7 0e 06 | 21 0c 23 14 d6 ce 0e 0e |.!......|!.#.....|
|000007a0| 0c 23 14 0b 40 0e 18 0b | 40 45 d9 0c 0b 41 41 5c |.#..@...|@E...AA\|
|000007b0| 22 a4 16 0c da db 0e 0c | 5c 22 88 dc 20 2b 2c 87 |".......|\".. +,.|
|000007c0| 22 20 5b 62 65 67 20 65 | 6e 64 20 61 73 73 6f 63 |" [beg e|nd assoc|
|000007d0| 20 6d 65 74 68 6f 64 20 | 63 61 6c 20 6d 69 6d 65 | method |cal mime|
|000007e0| 2d 61 72 74 69 63 6c 65 | 2f 67 65 74 2d 66 69 6c |-article|/get-fil|
|000007f0| 65 6e 61 6d 65 20 6e 61 | 6d 65 20 6d 61 6b 65 2d |ename na|me make-|
|00000800| 74 65 6d 70 2d 6e 61 6d | 65 20 65 78 70 61 6e 64 |temp-nam|e expand|
|00000810| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 22 54 4d 22 20 |-file-na|me "TM" |
|00000820| 6d 69 6d 65 2f 74 6d 70 | 2d 64 69 72 20 6e 69 6c |mime/tmp|-dir nil|
|00000830| 20 61 72 67 73 20 62 20 | 66 69 6c 65 20 72 65 2d | args b |file re-|
|00000840| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00000850| 5e 24 22 20 74 20 30 20 | 77 72 69 74 65 2d 72 65 |^$" t 0 |write-re|
|00000860| 67 69 6f 6e 20 6d 65 73 | 73 61 67 65 20 22 45 78 |gion mes|sage "Ex|
|00000870| 74 65 72 6e 61 6c 20 6d | 65 74 68 6f 64 20 69 73 |ternal m|ethod is|
|00000880| 20 73 74 61 72 74 69 6e | 67 2e 2e 2e 22 20 70 75 | startin|g..." pu|
|00000890| 74 2d 61 6c 69 73 74 20 | 72 65 70 6c 61 63 65 2d |t-alist |replace-|
|000008a0| 61 73 2d 66 69 6c 65 6e | 61 6d 65 20 6d 69 6d 65 |as-filen|ame mime|
|000008b0| 2f 6f 75 74 70 75 74 2d | 62 75 66 66 65 72 2d 6e |/output-|buffer-n|
|000008c0| 61 6d 65 20 6d 69 6d 65 | 2d 61 72 74 69 63 6c 65 |ame mime|-article|
|000008d0| 2f 6d 61 6b 65 2d 6d 65 | 74 68 6f 64 2d 61 72 67 |/make-me|thod-arg|
|000008e0| 73 20 61 70 70 6c 79 20 | 73 74 61 72 74 2d 70 72 |s apply |start-pr|
|000008f0| 6f 63 65 73 73 20 6d 69 | 6d 65 2d 61 72 74 69 63 |ocess mi|me-artic|
|00000900| 6c 65 2f 73 68 6f 77 2d | 6f 75 74 70 75 74 2d 62 |le/show-|output-b|
|00000910| 75 66 66 65 72 5d 20 35 | 5d 29 0a 28 64 65 66 61 |uffer] 5|]).(defa|
|00000920| 6c 69 61 73 20 27 6d 69 | 6d 65 2d 61 72 74 69 63 |lias 'mi|me-artic|
|00000930| 6c 65 2f 6d 61 6b 65 2d | 6d 65 74 68 6f 64 2d 61 |le/make-|method-a|
|00000940| 72 67 73 20 23 5b 28 63 | 61 6c 20 66 6f 72 6d 61 |rgs #[(c|al forma|
|00000950| 74 29 20 22 c0 c1 5c 6e | 5c 22 87 22 20 5b 6d 61 |t) "..\n|\"." [ma|
|00000960| 70 63 61 72 20 23 5b 28 | 61 72 67 29 20 22 08 3b |pcar #[(|arg) ".;|
|00000970| ab 82 08 87 c1 08 21 1a | c3 5c 6e 0c 5c 22 41 89 |......!.|.\n.\"A.|
|00000980| 1d ab 83 0d aa 89 5c 6e | c6 61 ab 83 c7 aa 81 c8 |......\n|.a......|
|00000990| 2a 87 22 20 5b 61 72 67 | 20 65 76 61 6c 20 69 74 |*." [arg| eval it|
|000009a0| 65 6d 20 61 73 73 6f 63 | 20 63 61 6c 20 72 65 74 |em assoc| cal ret|
|000009b0| 20 65 6e 63 6f 64 69 6e | 67 20 22 37 62 69 74 22 | encodin|g "7bit"|
|000009c0| 20 22 22 5d 20 34 5d 20 | 66 6f 72 6d 61 74 5d 20 | ""] 4] |format] |
|000009d0| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |3]).(def|alias 'm|
|000009e0| 69 6d 65 2d 61 72 74 69 | 63 6c 65 2f 73 68 6f 77 |ime-arti|cle/show|
|000009f0| 2d 6f 75 74 70 75 74 2d | 62 75 66 66 65 72 20 23 |-output-|buffer #|
|00000a00| 5b 28 26 72 65 73 74 20 | 66 6f 72 6d 73 29 20 22 |[(&rest |forms) "|
|00000a10| c0 09 21 88 c2 20 c3 09 | 21 1c 1d 0c ac ad 0e 06 |..!.. ..|!.......|
|00000a20| ab 94 c7 c8 21 ab 8f c3 | 0e 08 21 89 14 ab 87 c9 |....!...|..!.....|
|00000a30| 0c 09 5c 22 88 aa 95 ca | c3 0e 0b 21 21 88 cc cd |..\"....|...!!...|
|00000a40| 20 ce 5f cf a5 21 14 c9 | 0c 09 5c 22 88 ca 0c 21 | ._..!..|..\"...!|
|00000a50| 88 64 62 88 0e 10 ab 87 | d1 d2 0e 10 5c 22 63 88 |.db.....|....\"c.|
|00000a60| ca 0d 21 2a 87 22 20 5b | 67 65 74 2d 62 75 66 66 |..!*." [|get-buff|
|00000a70| 65 72 2d 63 72 65 61 74 | 65 20 6d 69 6d 65 2f 6f |er-creat|e mime/o|
|00000a80| 75 74 70 75 74 2d 62 75 | 66 66 65 72 2d 6e 61 6d |utput-bu|ffer-nam|
|00000a90| 65 20 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f |e select|ed-windo|
|00000aa0| 77 20 67 65 74 2d 62 75 | 66 66 65 72 2d 77 69 6e |w get-bu|ffer-win|
|00000ab0| 64 6f 77 20 77 69 6e 20 | 74 68 65 2d 77 69 6e 20 |dow win |the-win |
|00000ac0| 6d 69 6d 65 2f 6f 75 74 | 70 75 74 2d 62 75 66 66 |mime/out|put-buff|
|00000ad0| 65 72 2d 77 69 6e 64 6f | 77 2d 69 73 2d 73 68 61 |er-windo|w-is-sha|
|00000ae0| 72 65 64 2d 77 69 74 68 | 2d 62 62 64 62 20 62 6f |red-with|-bbdb bo|
|00000af0| 75 6e 64 70 20 62 62 64 | 62 2d 62 75 66 66 65 72 |undp bbd|b-buffer|
|00000b00| 2d 6e 61 6d 65 20 73 65 | 74 2d 77 69 6e 64 6f 77 |-name se|t-window|
|00000b10| 2d 62 75 66 66 65 72 20 | 73 65 6c 65 63 74 2d 77 |-buffer |select-w|
|00000b20| 69 6e 64 6f 77 20 6d 69 | 6d 65 3a 3a 61 72 74 69 |indow mi|me::arti|
|00000b30| 63 6c 65 2f 70 72 65 76 | 69 65 77 2d 62 75 66 66 |cle/prev|iew-buff|
|00000b40| 65 72 20 73 70 6c 69 74 | 2d 77 69 6e 64 6f 77 2d |er split|-window-|
|00000b50| 76 65 72 74 69 63 61 6c | 6c 79 20 77 69 6e 64 6f |vertical|ly windo|
|00000b60| 77 2d 68 65 69 67 68 74 | 20 33 20 34 20 66 6f 72 |w-height| 3 4 for|
|00000b70| 6d 73 20 61 70 70 6c 79 | 20 66 6f 72 6d 61 74 5d |ms apply| format]|
|00000b80| 20 33 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 | 3]).(by|te-code |
|00000b90| 22 c0 c1 21 ac 82 c2 11 | c1 0b 42 13 c0 c4 21 ac |"..!....|..B...!.|
|00000ba0| 86 09 c5 09 c6 52 14 c4 | 0b 42 13 c0 c7 21 ac 89 |.....R..|.B...!..|
|00000bb0| c8 09 21 c9 09 ca 52 16 | 07 c7 0b 42 13 c0 87 22 |..!...R.|...B..."|
|00000bc0| 20 5b 62 6f 75 6e 64 70 | 20 6d 69 6d 65 2d 76 69 | [boundp| mime-vi|
|00000bd0| 65 77 65 72 2f 66 69 6c | 65 2d 6e 61 6d 65 2d 63 |ewer/fil|e-name-c|
|00000be0| 68 61 72 2d 72 65 67 65 | 78 70 20 22 5b 41 2d 5a |har-rege|xp "[A-Z|
|00000bf0| 61 2d 7a 30 2d 39 2b 5f | 2d 5d 22 20 63 75 72 72 |a-z0-9+_|-]" curr|
|00000c00| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 6d 69 |ent-load|-list mi|
|00000c10| 6d 65 2d 76 69 65 77 65 | 72 2f 66 69 6c 65 2d 6e |me-viewe|r/file-n|
|00000c20| 61 6d 65 2d 72 65 67 65 | 78 70 2d 31 20 22 2b 5c |ame-rege|xp-1 "+\|
|00000c30| 5c 2e 22 20 22 2b 22 20 | 6d 69 6d 65 2d 76 69 65 |\." "+" |mime-vie|
|00000c40| 77 65 72 2f 66 69 6c 65 | 2d 6e 61 6d 65 2d 72 65 |wer/file|-name-re|
|00000c50| 67 65 78 70 2d 32 20 72 | 65 67 65 78 70 2d 2a 20 |gexp-2 r|egexp-* |
|00000c60| 22 5c 5c 28 5c 5c 2e 22 | 20 22 2b 5c 5c 29 2a 22 |"\\(\\."| "+\\)*"|
|00000c70| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|00000c80| 6d 69 6d 65 2d 61 72 74 | 69 63 6c 65 2f 67 65 74 |mime-art|icle/get|
|00000c90| 2d 6f 72 69 67 69 6e 61 | 6c 2d 66 69 6c 65 6e 61 |-origina|l-filena|
|00000ca0| 6d 65 20 23 5b 28 70 61 | 72 61 6d 20 26 6f 70 74 |me #[(pa|ram &opt|
|00000cb0| 69 6f 6e 61 6c 20 65 6e | 63 6f 64 69 6e 67 29 20 |ional en|coding) |
|00000cc0| 22 c0 09 5c 6e 5c 22 ae | c3 c3 1c c5 20 89 14 ab |"..\n\".|.... ...|
|00000cd0| 89 c6 c7 0c 41 5c 22 89 | 14 ac 90 c6 c8 09 5c 22 |....A\".|......\"|
|00000ce0| 89 14 ac 88 c6 c9 09 5c | 22 89 14 ab 86 ca 0c 41 |.......\|"......A|
|00000cf0| 21 ae 9b cb cc 21 89 14 | ad 94 cd 0e 0e 0c 5c 22 |!....!..|......\"|
|00000d00| ac 87 cd 0e 0f 0c 5c 22 | ad 86 0c d0 94 d0 95 4f |......\"|.......O|
|00000d10| 29 87 22 20 5b 6d 69 6d | 65 2d 61 72 74 69 63 6c |)." [mim|e-articl|
|00000d20| 65 2f 67 65 74 2d 75 75 | 2d 66 69 6c 65 6e 61 6d |e/get-uu|-filenam|
|00000d30| 65 20 70 61 72 61 6d 20 | 65 6e 63 6f 64 69 6e 67 |e param |encoding|
|00000d40| 20 6e 69 6c 20 72 65 74 | 20 6d 69 6d 65 2f 43 6f | nil ret| mime/Co|
|00000d50| 6e 74 65 6e 74 2d 44 69 | 73 70 6f 73 69 74 69 6f |ntent-Di|spositio|
|00000d60| 6e 20 61 73 73 6f 63 20 | 22 66 69 6c 65 6e 61 6d |n assoc |"filenam|
|00000d70| 65 22 20 22 6e 61 6d 65 | 22 20 22 78 2d 6e 61 6d |e" "name|" "x-nam|
|00000d80| 65 22 20 73 74 64 31 31 | 2d 73 74 72 69 70 2d 71 |e" std11|-strip-q|
|00000d90| 75 6f 74 65 64 2d 73 74 | 72 69 6e 67 20 73 74 64 |uoted-st|ring std|
|00000da0| 31 31 2d 66 69 6e 64 2d | 66 69 65 6c 64 2d 62 6f |11-find-|field-bo|
|00000db0| 64 79 20 28 22 43 6f 6e | 74 65 6e 74 2d 44 65 73 |dy ("Con|tent-Des|
|00000dc0| 63 72 69 70 74 69 6f 6e | 22 20 22 53 75 62 6a 65 |cription|" "Subje|
|00000dd0| 63 74 22 29 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |ct") str|ing-matc|
|00000de0| 68 20 6d 69 6d 65 2d 76 | 69 65 77 65 72 2f 66 69 |h mime-v|iewer/fi|
|00000df0| 6c 65 2d 6e 61 6d 65 2d | 72 65 67 65 78 70 2d 31 |le-name-|regexp-1|
|00000e00| 20 6d 69 6d 65 2d 76 69 | 65 77 65 72 2f 66 69 6c | mime-vi|ewer/fil|
|00000e10| 65 2d 6e 61 6d 65 2d 72 | 65 67 65 78 70 2d 32 20 |e-name-r|egexp-2 |
|00000e20| 30 5d 20 33 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |0] 3]).(|defalias|
|00000e30| 20 27 6d 69 6d 65 2d 61 | 72 74 69 63 6c 65 2f 67 | 'mime-a|rticle/g|
|00000e40| 65 74 2d 66 69 6c 65 6e | 61 6d 65 20 23 5b 28 70 |et-filen|ame #[(p|
|00000e50| 61 72 61 6d 29 20 22 c0 | c1 5c 6e 21 21 87 22 20 |aram) ".|.\n!!." |
|00000e60| 5b 72 65 70 6c 61 63 65 | 2d 61 73 2d 66 69 6c 65 |[replace|-as-file|
|00000e70| 6e 61 6d 65 20 6d 69 6d | 65 2d 61 72 74 69 63 6c |name mim|e-articl|
|00000e80| 65 2f 67 65 74 2d 6f 72 | 69 67 69 6e 61 6c 2d 66 |e/get-or|iginal-f|
|00000e90| 69 6c 65 6e 61 6d 65 20 | 70 61 72 61 6d 5d 20 33 |ilename |param] 3|
|00000ea0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 69 |]).(defa|lias 'mi|
|00000eb0| 6d 65 2d 76 69 65 77 65 | 72 2f 71 75 69 74 74 69 |me-viewe|r/quitti|
|00000ec0| 6e 67 2d 6d 65 74 68 6f | 64 2d 66 6f 72 2d 6d 69 |ng-metho|d-for-mi|
|00000ed0| 6d 65 2f 73 68 6f 77 2d | 6d 65 73 73 61 67 65 2d |me/show-|message-|
|00000ee0| 6d 6f 64 65 20 23 5b 6e | 69 6c 20 22 08 09 1a 1b |mode #[n|il "....|
|00000ef0| c4 c5 0e 06 40 21 21 88 | c7 20 88 c8 5c 6e 21 88 |....@!!.|. ..\n!.|
|00000f00| c9 0b 21 2a 87 22 20 5b | 6d 69 6d 65 3a 3a 70 72 |..!*." [|mime::pr|
|00000f10| 65 76 69 65 77 2f 6d 6f | 74 68 65 72 2d 62 75 66 |eview/mo|ther-buf|
|00000f20| 66 65 72 20 6d 69 6d 65 | 3a 3a 70 72 65 76 69 65 |fer mime|::previe|
|00000f30| 77 2f 6f 72 69 67 69 6e | 61 6c 2d 77 69 6e 64 6f |w/origin|al-windo|
|00000f40| 77 2d 63 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 20 |w-config|uration |
|00000f50| 77 69 6e 2d 63 6f 6e 66 | 20 6d 6f 74 68 65 72 20 |win-conf| mother |
|00000f60| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 20 6d 69 6d 65 |kill-buf|fer mime|
|00000f70| 3a 3a 70 72 65 76 69 65 | 77 2d 63 6f 6e 74 65 6e |::previe|w-conten|
|00000f80| 74 2d 69 6e 66 6f 2f 62 | 75 66 66 65 72 20 6d 69 |t-info/b|uffer mi|
|00000f90| 6d 65 3a 3a 70 72 65 76 | 69 65 77 2f 63 6f 6e 74 |me::prev|iew/cont|
|00000fa0| 65 6e 74 2d 6c 69 73 74 | 20 6d 69 6d 65 2d 76 69 |ent-list| mime-vi|
|00000fb0| 65 77 65 72 2f 6b 69 6c | 6c 2d 62 75 66 66 65 72 |ewer/kil|l-buffer|
|00000fc0| 20 73 65 74 2d 77 69 6e | 64 6f 77 2d 63 6f 6e 66 | set-win|dow-conf|
|00000fd0| 69 67 75 72 61 74 69 6f | 6e 20 70 6f 70 2d 74 6f |iguratio|n pop-to|
|00000fe0| 2d 62 75 66 66 65 72 5d | 20 33 5d 29 0a 28 64 65 |-buffer]| 3]).(de|
|00000ff0| 66 61 6c 69 61 73 20 27 | 6d 69 6d 65 2d 61 72 74 |falias '|mime-art|
|00001000| 69 63 6c 65 2f 76 69 65 | 77 2d 6d 65 73 73 61 67 |icle/vie|w-messag|
|00001010| 65 2f 72 66 63 38 32 32 | 20 23 5b 28 62 65 67 20 |e/rfc822| #[(beg |
|00001020| 65 6e 64 20 63 61 6c 29 | 20 22 c0 09 21 1a 70 1b |end cal)| "..!.p.|
|00001030| c4 c5 c6 20 5c 6e 23 1e | 07 0e 08 1e 09 0e 5c 6e |... \n#.|......\n|
|00001040| 0e 0b b7 41 ae 81 cc 1e | 0d ce 1e 0f 09 0e 10 7b |...A....|.......{|
|00001050| 16 0f d1 0e 07 21 88 d2 | 20 88 0e 0f 63 88 65 62 |.....!..| ...c.eb|
|00001060| 88 d3 d4 ce d5 23 ab 85 | 65 d6 95 7c 88 d7 16 5c |.....#..|e..|...\|
|00001070| 6e 0e 0d 16 18 d9 0e 09 | 21 2e 06 87 22 20 5b 6d |n.......|!..." [m|
|00001080| 69 6d 65 2d 61 72 74 69 | 63 6c 65 2f 70 6f 69 6e |ime-arti|cle/poin|
|00001090| 74 2d 63 6f 6e 74 65 6e | 74 2d 6e 75 6d 62 65 72 |t-conten|t-number|
|000010a0| 20 62 65 67 20 63 6e 75 | 6d 20 63 75 72 2d 62 75 | beg cnu|m cur-bu|
|000010b0| 66 20 66 6f 72 6d 61 74 | 20 22 25 73 2d 25 73 22 |f format| "%s-%s"|
|000010c0| 20 62 75 66 66 65 72 2d | 6e 61 6d 65 20 6e 65 77 | buffer-|name new|
|000010d0| 2d 6e 61 6d 65 20 6d 69 | 6d 65 3a 3a 61 72 74 69 |-name mi|me::arti|
|000010e0| 63 6c 65 2f 70 72 65 76 | 69 65 77 2d 62 75 66 66 |cle/prev|iew-buff|
|000010f0| 65 72 20 6d 6f 74 68 65 | 72 20 6d 61 6a 6f 72 2d |er mothe|r major-|
|00001100| 6d 6f 64 65 20 6d 69 6d | 65 2d 76 69 65 77 65 72 |mode mim|e-viewer|
|00001110| 2f 63 6f 64 65 2d 63 6f | 6e 76 65 72 74 65 72 2d |/code-co|nverter-|
|00001120| 61 6c 69 73 74 20 6d 69 | 6d 65 2d 76 69 65 77 65 |alist mi|me-viewe|
|00001130| 72 2f 64 65 66 61 75 6c | 74 2d 63 6f 64 65 2d 63 |r/defaul|t-code-c|
|00001140| 6f 6e 76 65 72 74 2d 72 | 65 67 69 6f 6e 20 63 6f |onvert-r|egion co|
|00001150| 64 65 2d 63 6f 6e 76 65 | 72 74 65 72 20 6e 69 6c |de-conve|rter nil|
|00001160| 20 73 74 72 20 65 6e 64 | 20 73 77 69 74 63 68 2d | str end| switch-|
|00001170| 74 6f 2d 62 75 66 66 65 | 72 20 65 72 61 73 65 2d |to-buffe|r erase-|
|00001180| 62 75 66 66 65 72 20 72 | 65 2d 73 65 61 72 63 68 |buffer r|e-search|
|00001190| 2d 66 6f 72 77 61 72 64 | 20 22 5e 5c 6e 22 20 74 |-forward| "^\n" t|
|000011a0| 20 30 20 6d 69 6d 65 2f | 73 68 6f 77 2d 6d 65 73 | 0 mime/|show-mes|
|000011b0| 73 61 67 65 2d 6d 6f 64 | 65 20 6d 69 6d 65 3a 3a |sage-mod|e mime::|
|000011c0| 61 72 74 69 63 6c 65 2f | 63 6f 64 65 2d 63 6f 6e |article/|code-con|
|000011d0| 76 65 72 74 65 72 20 6d | 69 6d 65 2f 76 69 65 77 |verter m|ime/view|
|000011e0| 65 72 2d 6d 6f 64 65 5d | 20 34 5d 29 0a 28 62 79 |er-mode]| 4]).(by|
|000011f0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 ac c0 c2 0b |te-code |"..!....|
|00001200| 42 c4 0d c6 1e 07 89 1e | 08 3b ab 87 c9 0e 08 97 |B.......|.;......|
|00001210| 21 16 08 0e 08 0e 5c 6e | b7 89 1e 0b ab 85 0e 0b |!.....\n|........|
|00001220| 41 16 08 29 0e 07 ab 8b | c9 cc cd 0e 08 0e 07 23 |A..)....|.......#|
|00001230| 21 16 08 ce 0e 08 21 ad | 82 0e 08 2a 42 44 11 c1 |!.....!.|...*BD..|
|00001240| 0e 0f 42 16 0f c0 d0 21 | ab 86 d1 d2 4d 88 aa 9b |..B....!|....M...|
|00001250| d3 d4 21 ab 86 d1 d5 4d | 88 aa 90 c0 d6 21 ab 86 |..!....M|.....!..|
|00001260| d1 d7 4d 88 aa 85 d8 d1 | d9 5c 22 88 c6 87 22 20 |..M.....|.\"..." |
|00001270| 5b 62 6f 75 6e 64 70 20 | 6d 69 6d 65 2d 61 72 74 |[boundp |mime-art|
|00001280| 69 63 6c 65 2f 63 6f 64 | 69 6e 67 2d 73 79 73 74 |icle/cod|ing-syst|
|00001290| 65 6d 2d 61 6c 69 73 74 | 20 6d 68 2d 73 68 6f 77 |em-alist| mh-show|
|000012a0| 2d 6d 6f 64 65 20 2a 6e | 6f 63 6f 6e 76 2a 20 74 |-mode *n|oconv* t|
|000012b0| 20 64 65 66 61 75 6c 74 | 2d 6d 69 6d 65 2d 63 68 | default|-mime-ch|
|000012c0| 61 72 73 65 74 20 6e 69 | 6c 20 6c 62 74 20 63 68 |arset ni|l lbt ch|
|000012d0| 61 72 73 65 74 20 69 6e | 74 65 72 6e 20 6d 69 6d |arset in|tern mim|
|000012e0| 65 2d 63 68 61 72 73 65 | 74 2d 63 6f 64 69 6e 67 |e-charse|t-coding|
|000012f0| 2d 73 79 73 74 65 6d 2d | 61 6c 69 73 74 20 72 65 |-system-|alist re|
|00001300| 74 20 66 6f 72 6d 61 74 | 20 22 25 73 2d 25 73 22 |t format| "%s-%s"|
|00001310| 20 66 69 6e 64 2d 63 6f | 64 69 6e 67 2d 73 79 73 | find-co|ding-sys|
|00001320| 74 65 6d 20 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |tem curr|ent-load|
|00001330| 2d 6c 69 73 74 20 4d 55 | 4c 45 20 6d 69 6d 65 2d |-list MU|LE mime-|
|00001340| 61 72 74 69 63 6c 65 3a | 3a 77 72 69 74 65 2d 72 |article:|:write-r|
|00001350| 65 67 69 6f 6e 20 23 5b | 28 73 74 61 72 74 20 65 |egion #[|(start e|
|00001360| 6e 64 20 66 69 6c 65 29 | 20 22 08 09 b7 ae 83 c2 |nd file)| "......|
|00001370| 09 b7 41 1b c4 0d 0e 06 | 0e 07 23 29 87 22 20 5b |..A.....|..#)." [|
|00001380| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 6d 69 6d 65 2d |major-mo|de mime-|
|00001390| 61 72 74 69 63 6c 65 2f | 63 6f 64 69 6e 67 2d 73 |article/|coding-s|
|000013a0| 79 73 74 65 6d 2d 61 6c | 69 73 74 20 74 20 66 69 |ystem-al|ist t fi|
|000013b0| 6c 65 2d 63 6f 64 69 6e | 67 2d 73 79 73 74 65 6d |le-codin|g-system|
|000013c0| 20 77 72 69 74 65 2d 72 | 65 67 69 6f 6e 20 73 74 | write-r|egion st|
|000013d0| 61 72 74 20 65 6e 64 20 | 66 69 6c 65 5d 20 34 5d |art end |file] 4]|
|000013e0| 20 66 65 61 74 75 72 65 | 70 20 6d 75 6c 65 20 23 | feature|p mule #|
|000013f0| 5b 28 73 74 61 72 74 20 | 65 6e 64 20 66 69 6c 65 |[(start |end file|
|00001400| 29 20 22 08 09 b7 ae 83 | c2 09 b7 41 1b c4 0d 0e |) ".....|...A....|
|00001410| 06 0e 07 23 29 87 22 20 | 5b 6d 61 6a 6f 72 2d 6d |...#)." |[major-m|
|00001420| 6f 64 65 20 6d 69 6d 65 | 2d 61 72 74 69 63 6c 65 |ode mime|-article|
|00001430| 2f 63 6f 64 69 6e 67 2d | 73 79 73 74 65 6d 2d 61 |/coding-|system-a|
|00001440| 6c 69 73 74 20 74 20 63 | 6f 64 69 6e 67 2d 73 79 |list t c|oding-sy|
|00001450| 73 74 65 6d 2d 66 6f 72 | 2d 77 72 69 74 65 20 77 |stem-for|-write w|
|00001460| 72 69 74 65 2d 72 65 67 | 69 6f 6e 20 73 74 61 72 |rite-reg|ion star|
|00001470| 74 20 65 6e 64 20 66 69 | 6c 65 5d 20 34 5d 20 4e |t end fi|le] 4] N|
|00001480| 45 4d 41 43 53 20 23 5b | 28 73 74 61 72 74 20 65 |EMACS #[|(start e|
|00001490| 6e 64 20 66 69 6c 65 29 | 20 22 08 09 b7 ae 83 c2 |nd file)| "......|
|000014a0| 09 b7 41 1b c4 0d 0e 06 | 0e 07 23 29 87 22 20 5b |..A.....|..#)." [|
|000014b0| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 6d 69 6d 65 2d |major-mo|de mime-|
|000014c0| 61 72 74 69 63 6c 65 2f | 6b 61 6e 6a 69 2d 63 6f |article/|kanji-co|
|000014d0| 64 65 2d 61 6c 69 73 74 | 20 74 20 6b 61 6e 6a 69 |de-alist| t kanji|
|000014e0| 2d 66 69 6c 65 69 6f 2d | 63 6f 64 65 20 77 72 69 |-fileio-|code wri|
|000014f0| 74 65 2d 72 65 67 69 6f | 6e 20 73 74 61 72 74 20 |te-regio|n start |
|00001500| 65 6e 64 20 66 69 6c 65 | 5d 20 34 5d 20 64 65 66 |end file|] 4] def|
|00001510| 61 6c 69 61 73 20 77 72 | 69 74 65 2d 72 65 67 69 |alias wr|ite-regi|
|00001520| 6f 6e 5d 20 39 29 0a 28 | 64 65 66 61 6c 69 61 73 |on] 9).(|defalias|
|00001530| 20 27 6d 69 6d 65 2d 61 | 72 74 69 63 6c 65 2f 64 | 'mime-a|rticle/d|
|00001540| 65 63 6f 64 65 2d 6d 65 | 73 73 61 67 65 2f 70 61 |ecode-me|ssage/pa|
|00001550| 72 74 69 61 6c 20 23 5b | 28 62 65 67 20 65 6e 64 |rtial #[|(beg end|
|00001560| 20 63 61 6c 29 20 22 08 | 62 88 c1 c2 c3 20 50 0c | cal) ".|b.... P.|
|00001570| 5c 22 1d c6 c7 0e 08 5c | 22 41 1e 09 c6 ca 0e 08 |\".....\|"A......|
|00001580| 5c 22 41 1e 0b c6 cc 0e | 08 5c 22 41 1e 0d ce 1e |\"A.....|.\"A....|
|00001590| 0f 0e 10 1e 11 d2 0d 21 | ac 84 d3 0d 21 88 d4 0e |.......!|....!...|
|000015a0| 09 21 16 09 0d d5 0e 09 | 51 15 d2 0d 21 ac 84 d3 |.!......|Q...!...|
|000015b0| 0d 21 88 0d d6 50 16 0f | d2 0e 0f 21 ab a6 d7 d8 |.!...P..|...!....|
|000015c0| 21 d9 0e 11 21 ae 82 da | 20 1e 1b 1e 1c dd 8b 88 |!...!...| .......|
|000015d0| de 0e 1b 8a 0e 1c 71 88 | 0e 10 29 5c 22 88 df 0e |......q.|..)\"...|
|000015e0| 1b 21 2a aa f4 e0 e1 21 | 88 e2 95 54 62 88 0d d5 |.!*....!|...Tb...|
|000015f0| 0e 0b 51 16 0f e3 60 64 | 0e 0f 23 88 0d e4 50 1e |..Q...`d|..#...P.|
|00001600| 25 0e 0d ab a4 d2 0e 25 | 21 ac 98 8a d7 0e 26 21 |%......%|!.....&!|
|00001610| 71 88 e7 20 88 0e 0d 63 | 88 e8 0e 25 21 88 e9 70 |q.. ...c|...%!..p|
|00001620| 21 88 29 ea 0e 0d 21 aa | a0 d2 0e 25 21 ad 9a 8a |!.)...!.|...%!...|
|00001630| eb 0e 25 21 71 88 e0 ec | ce ed 23 ad 87 ea e2 94 |..%!q...|..#.....|
|00001640| e2 95 7b 21 e9 70 21 88 | 29 16 0d 29 0e 0d ad 89 |..{!.p!.|)..)....|
|00001650| 0e 0d e2 56 ad 83 ee ef | 8d 2e 06 87 22 20 5b 62 |...V....|...." [b|
|00001660| 65 67 20 65 78 70 61 6e | 64 2d 66 69 6c 65 2d 6e |eg expan|d-file-n|
|00001670| 61 6d 65 20 22 6d 2d 70 | 72 74 73 2d 22 20 75 73 |ame "m-p|rts-" us|
|00001680| 65 72 2d 6c 6f 67 69 6e | 2d 6e 61 6d 65 20 6d 69 |er-login|-name mi|
|00001690| 6d 65 2f 74 6d 70 2d 64 | 69 72 20 72 6f 6f 74 2d |me/tmp-d|ir root-|
|000016a0| 64 69 72 20 61 73 73 6f | 63 20 22 69 64 22 20 63 |dir asso|c "id" c|
|000016b0| 61 6c 20 69 64 20 22 6e | 75 6d 62 65 72 22 20 6e |al id "n|umber" n|
|000016c0| 75 6d 62 65 72 20 22 74 | 6f 74 61 6c 22 20 74 6f |umber "t|otal" to|
|000016d0| 74 61 6c 20 6e 69 6c 20 | 66 69 6c 65 20 6d 69 6d |tal nil |file mim|
|000016e0| 65 3a 3a 61 72 74 69 63 | 6c 65 2f 70 72 65 76 69 |e::artic|le/previ|
|000016f0| 65 77 2d 62 75 66 66 65 | 72 20 6d 6f 74 68 65 72 |ew-buffe|r mother|
|00001700| 20 66 69 6c 65 2d 65 78 | 69 73 74 73 2d 70 20 6d | file-ex|ists-p m|
|00001710| 61 6b 65 2d 64 69 72 65 | 63 74 6f 72 79 20 72 65 |ake-dire|ctory re|
|00001720| 70 6c 61 63 65 2d 61 73 | 2d 66 69 6c 65 6e 61 6d |place-as|-filenam|
|00001730| 65 20 22 2f 22 20 22 2f | 46 55 4c 4c 22 20 67 65 |e "/" "/|FULL" ge|
|00001740| 74 2d 62 75 66 66 65 72 | 2d 63 72 65 61 74 65 20 |t-buffer|-create |
|00001750| 22 46 55 4c 4c 22 20 67 | 65 74 2d 62 75 66 66 65 |"FULL" g|et-buffe|
|00001760| 72 2d 77 69 6e 64 6f 77 | 20 67 65 74 2d 6c 61 72 |r-window| get-lar|
|00001770| 67 65 73 74 2d 77 69 6e | 64 6f 77 20 70 77 69 6e |gest-win|dow pwin|
|00001780| 20 66 75 6c 6c 2d 62 75 | 66 20 28 28 62 79 74 65 | full-bu|f ((byte|
|00001790| 2d 63 6f 64 65 20 22 08 | 71 88 c1 20 88 c2 1b c4 |-code ".|q.. ....|
|000017a0| 0d 21 88 29 c6 16 07 c8 | 0e 09 21 87 22 20 5b 66 |.!.)....|..!." [f|
|000017b0| 75 6c 6c 2d 62 75 66 20 | 65 72 61 73 65 2d 62 75 |ull-buf |erase-bu|
|000017c0| 66 66 65 72 20 62 69 6e | 61 72 79 20 63 6f 64 69 |ffer bin|ary codi|
|000017d0| 6e 67 2d 73 79 73 74 65 | 6d 2d 66 6f 72 2d 72 65 |ng-syste|m-for-re|
|000017e0| 61 64 20 69 6e 73 65 72 | 74 2d 66 69 6c 65 2d 63 |ad inser|t-file-c|
|000017f0| 6f 6e 74 65 6e 74 73 20 | 66 69 6c 65 20 6d 69 6d |ontents |file mim|
|00001800| 65 2f 73 68 6f 77 2d 6d | 65 73 73 61 67 65 2d 6d |e/show-m|essage-m|
|00001810| 6f 64 65 20 6d 61 6a 6f | 72 2d 6d 6f 64 65 20 6d |ode majo|r-mode m|
|00001820| 69 6d 65 2f 76 69 65 77 | 65 72 2d 6d 6f 64 65 20 |ime/view|er-mode |
|00001830| 6d 6f 74 68 65 72 5d 20 | 32 29 29 20 73 65 74 2d |mother] |2)) set-|
|00001840| 77 69 6e 64 6f 77 2d 62 | 75 66 66 65 72 20 73 65 |window-b|uffer se|
|00001850| 6c 65 63 74 2d 77 69 6e | 64 6f 77 20 72 65 2d 73 |lect-win|dow re-s|
|00001860| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 5e |earch-fo|rward "^|
|00001870| 24 22 20 30 20 6d 69 6d | 65 2d 61 72 74 69 63 6c |$" 0 mim|e-articl|
|00001880| 65 3a 3a 77 72 69 74 65 | 2d 72 65 67 69 6f 6e 20 |e::write|-region |
|00001890| 22 2f 43 54 22 20 74 6f | 74 61 6c 2d 66 69 6c 65 |"/CT" to|tal-file|
|000018a0| 20 6d 69 6d 65 2f 74 65 | 6d 70 2d 62 75 66 66 65 | mime/te|mp-buffe|
|000018b0| 72 2d 6e 61 6d 65 20 65 | 72 61 73 65 2d 62 75 66 |r-name e|rase-buf|
|000018c0| 66 65 72 20 77 72 69 74 | 65 2d 66 69 6c 65 20 6b |fer writ|e-file k|
|000018d0| 69 6c 6c 2d 62 75 66 66 | 65 72 20 73 74 72 69 6e |ill-buff|er strin|
|000018e0| 67 2d 74 6f 2d 6e 75 6d | 62 65 72 20 66 69 6e 64 |g-to-num|ber find|
|000018f0| 2d 66 69 6c 65 2d 6e 6f | 73 65 6c 65 63 74 20 22 |-file-no|select "|
|00001900| 5b 30 2d 39 5d 2b 22 20 | 74 20 74 61 67 20 28 62 |[0-9]+" |t tag (b|
|00001910| 79 74 65 2d 63 6f 64 65 | 20 22 8a c0 09 21 71 88 |yte-code| "...!q.|
|00001920| 70 1a c3 20 88 c4 1d c4 | 0e 06 58 ab a6 0e 07 c8 |p.. ....|..X.....|
|00001930| c9 0d 21 51 16 5c 6e cb | 0e 5c 6e 21 ac 85 cc cd |..!Q.\n.|.\n!....|
|00001940| ce 5c 22 88 cf 1e 10 d1 | 0e 5c 6e 21 88 29 64 62 |.\".....|.\n!.)db|
|00001950| 88 0d 54 89 15 aa 55 29 | cf 1e 12 d3 0e 07 d4 50 |..T...U)|.......P|
|00001960| 21 88 29 c4 1d c4 0e 06 | 58 ab 9a d5 d6 0e 07 0d |!.).....|X.......|
|00001970| 23 1e 5c 6e cb 0e 5c 6e | 21 ab 85 d7 0e 5c 6e 21 |#.\n..\n|!....\n!|
|00001980| 88 29 0d 54 89 15 aa 61 | 29 d8 d9 0e 07 5c 22 1e |.).T...a|)....\".|
|00001990| 5c 6e cb 0e 5c 6e 21 ab | 85 d7 0e 5c 6e 21 88 29 |\n..\n!.|...\n!.)|
|000019a0| da 8b 88 db 0e 1c 21 ae | 82 dd 20 8a 5c 6e 71 88 |......!.|.. .\nq.|
|000019b0| 0e 1e 29 1e 1f 1e 20 e1 | 0e 20 0e 1f 5c 22 88 e2 |..)... .|. ..\"..|
|000019c0| 0e 20 21 2c 87 22 20 5b | 67 65 74 2d 62 75 66 66 |. !,." [|get-buff|
|000019d0| 65 72 2d 63 72 65 61 74 | 65 20 6d 69 6d 65 2f 74 |er-creat|e mime/t|
|000019e0| 65 6d 70 2d 62 75 66 66 | 65 72 2d 6e 61 6d 65 20 |emp-buff|er-name |
|000019f0| 66 75 6c 6c 2d 62 75 66 | 20 65 72 61 73 65 2d 62 |full-buf| erase-b|
|00001a00| 75 66 66 65 72 20 31 20 | 69 20 74 6f 74 61 6c 20 |uffer 1 |i total |
|00001a10| 72 6f 6f 74 2d 64 69 72 | 20 22 2f 22 20 69 6e 74 |root-dir| "/" int|
|00001a20| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 66 69 6c 65 20 |-to-stri|ng file |
|00001a30| 66 69 6c 65 2d 65 78 69 | 73 74 73 2d 70 20 74 68 |file-exi|sts-p th|
|00001a40| 72 6f 77 20 74 61 67 20 | 6e 69 6c 20 62 69 6e 61 |row tag |nil bina|
|00001a50| 72 79 20 63 6f 64 69 6e | 67 2d 73 79 73 74 65 6d |ry codin|g-system|
|00001a60| 2d 66 6f 72 2d 72 65 61 | 64 20 69 6e 73 65 72 74 |-for-rea|d insert|
|00001a70| 2d 66 69 6c 65 2d 63 6f | 6e 74 65 6e 74 73 20 63 |-file-co|ntents c|
|00001a80| 6f 64 69 6e 67 2d 73 79 | 73 74 65 6d 2d 66 6f 72 |oding-sy|stem-for|
|00001a90| 2d 77 72 69 74 65 20 77 | 72 69 74 65 2d 66 69 6c |-write w|rite-fil|
|00001aa0| 65 20 22 2f 46 55 4c 4c | 22 20 66 6f 72 6d 61 74 |e "/FULL|" format|
|00001ab0| 20 22 25 73 2f 25 64 22 | 20 64 65 6c 65 74 65 2d | "%s/%d"| delete-|
|00001ac0| 66 69 6c 65 20 65 78 70 | 61 6e 64 2d 66 69 6c 65 |file exp|and-file|
|00001ad0| 2d 6e 61 6d 65 20 22 43 | 54 22 20 28 28 62 79 74 |-name "C|T" ((byt|
|00001ae0| 65 2d 63 6f 64 65 20 22 | c0 11 c2 0b 21 87 22 20 |e-code "|....!." |
|00001af0| 5b 6d 69 6d 65 2f 73 68 | 6f 77 2d 6d 65 73 73 61 |[mime/sh|ow-messa|
|00001b00| 67 65 2d 6d 6f 64 65 20 | 6d 61 6a 6f 72 2d 6d 6f |ge-mode |major-mo|
|00001b10| 64 65 20 6d 69 6d 65 2f | 76 69 65 77 65 72 2d 6d |de mime/|viewer-m|
|00001b20| 6f 64 65 20 6d 6f 74 68 | 65 72 5d 20 32 29 29 20 |ode moth|er] 2)) |
|00001b30| 67 65 74 2d 62 75 66 66 | 65 72 2d 77 69 6e 64 6f |get-buff|er-windo|
|00001b40| 77 20 6d 6f 74 68 65 72 | 20 67 65 74 2d 6c 61 72 |w mother| get-lar|
|00001b50| 67 65 73 74 2d 77 69 6e | 64 6f 77 20 6d 69 6d 65 |gest-win|dow mime|
|00001b60| 3a 3a 61 72 74 69 63 6c | 65 2f 70 72 65 76 69 65 |::articl|e/previe|
|00001b70| 77 2d 62 75 66 66 65 72 | 20 70 62 75 66 20 70 77 |w-buffer| pbuf pw|
|00001b80| 69 6e 20 73 65 74 2d 77 | 69 6e 64 6f 77 2d 62 75 |in set-w|indow-bu|
|00001b90| 66 66 65 72 20 73 65 6c | 65 63 74 2d 77 69 6e 64 |ffer sel|ect-wind|
|00001ba0| 6f 77 5d 20 35 29 5d 20 | 34 5d 29 0a 28 62 79 74 |ow] 5)] |4]).(byt|
|00001bb0| 65 2d 63 6f 64 65 20 22 | c0 c1 21 ac 84 c2 c3 21 |e-code "|..!....!|
|00001bc0| 88 c4 09 21 15 c5 0e 06 | 42 16 06 c7 0d c8 c9 23 |...!....|B......#|
|00001bd0| 87 22 20 5b 62 6f 75 6e | 64 70 20 76 69 65 77 2d |." [boun|dp view-|
|00001be0| 6d 6f 64 65 2d 6d 61 70 | 20 72 65 71 75 69 72 65 |mode-map| require|
|00001bf0| 20 76 69 65 77 20 63 6f | 70 79 2d 6b 65 79 6d 61 | view co|py-keyma|
|00001c00| 70 20 6d 69 6d 65 2d 76 | 69 65 77 2d 74 65 78 74 |p mime-v|iew-text|
|00001c10| 2f 70 6c 61 69 6e 2d 6d | 6f 64 65 2d 6d 61 70 20 |/plain-m|ode-map |
|00001c20| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00001c30| 74 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 22 71 22 |t define|-key "q"|
|00001c40| 20 6d 69 6d 65 2d 76 69 | 65 77 2d 74 65 78 74 2f | mime-vi|ew-text/|
|00001c50| 70 6c 61 69 6e 2d 65 78 | 69 74 5d 20 34 29 0a 23 |plain-ex|it] 4).#|
|00001c60| 40 33 34 20 5c 7b 6d 69 | 6d 65 2d 76 69 65 77 2d |@34 \{mi|me-view-|
|00001c70| 74 65 78 74 2f 70 6c 61 | 69 6e 2d 6d 6f 64 65 2d |text/pla|in-mode-|
|00001c80| 6d 61 70 7d 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |map}..(d|efalias |
|00001c90| 27 6d 69 6d 65 2d 76 69 | 65 77 2d 74 65 78 74 2f |'mime-vi|ew-text/|
|00001ca0| 70 6c 61 69 6e 2d 6d 6f | 64 65 20 23 5b 6e 69 6c |plain-mo|de #[nil|
|00001cb0| 20 22 c0 11 c2 13 c4 15 | c6 0e 07 21 87 22 20 5b | "......|...!." [|
|00001cc0| 74 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |t buffer|-read-on|
|00001cd0| 6c 79 20 6d 69 6d 65 2d | 76 69 65 77 2d 74 65 78 |ly mime-|view-tex|
|00001ce0| 74 2f 70 6c 61 69 6e 2d | 6d 6f 64 65 20 6d 61 6a |t/plain-|mode maj|
|00001cf0| 6f 72 2d 6d 6f 64 65 20 | 22 4d 49 4d 45 2d 56 69 |or-mode |"MIME-Vi|
|00001d00| 65 77 20 74 65 78 74 2f | 70 6c 61 69 6e 22 20 6d |ew text/|plain" m|
|00001d10| 6f 64 65 2d 6e 61 6d 65 | 20 75 73 65 2d 6c 6f 63 |ode-name| use-loc|
|00001d20| 61 6c 2d 6d 61 70 20 6d | 69 6d 65 2d 76 69 65 77 |al-map m|ime-view|
|00001d30| 2d 74 65 78 74 2f 70 6c | 61 69 6e 2d 6d 6f 64 65 |-text/pl|ain-mode|
|00001d40| 2d 6d 61 70 5d 20 32 20 | 28 23 24 20 2e 20 37 32 |-map] 2 |(#$ . 72|
|00001d50| 36 38 29 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |68)]).(d|efalias |
|00001d60| 27 6d 69 6d 65 2d 76 69 | 65 77 2d 74 65 78 74 2f |'mime-vi|ew-text/|
|00001d70| 70 6c 61 69 6e 2d 65 78 | 69 74 20 23 5b 6e 69 6c |plain-ex|it #[nil|
|00001d80| 20 22 c0 70 21 87 22 20 | 5b 6b 69 6c 6c 2d 62 75 | ".p!." |[kill-bu|
|00001d90| 66 66 65 72 5d 20 32 20 | 6e 69 6c 20 6e 69 6c 5d |ffer] 2 |nil nil]|
|00001da0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 69 6d |).(defal|ias 'mim|
|00001db0| 65 2d 61 72 74 69 63 6c | 65 2f 64 65 63 6f 64 65 |e-articl|e/decode|
|00001dc0| 2d 63 61 65 73 61 72 20 | 23 5b 28 62 65 67 20 65 |-caesar |#[(beg e|
|00001dd0| 6e 64 20 63 61 6c 29 20 | 22 c0 09 21 1a 70 1b c4 |nd cal) |"..!.p..|
|00001de0| c5 c6 20 5c 6e 23 1e 07 | 0e 08 1e 09 ca cb 0e 0c |.. \n#..|........|
|00001df0| 5c 22 41 1e 0d ce 0e 0c | b7 41 1e 0e 0e 0f 1e 10 |\"A.....|.A......|
|00001e00| d1 1e 12 09 0e 13 7b 16 | 12 d4 0e 09 21 ae 82 d5 |......{.|....!...|
|00001e10| 20 d6 0e 07 21 1e 17 1e | 18 d9 0e 18 0e 17 5c 22 | ...!...|......\"|
|00001e20| 88 0e 17 71 88 da 0e 18 | 21 88 2a d1 16 1b dc 20 |...q....|!.*.... |
|00001e30| 88 0e 12 63 88 65 62 88 | dd de d1 df 23 ab 85 65 |...c.eb.|....#..e|
|00001e40| e0 95 7c 88 0e 10 0e 21 | b7 ae 84 df 0e 21 b7 41 |..|....!|.....!.A|
|00001e50| 1e 5c 22 e3 0e 5c 22 21 | ab 88 0e 5c 22 0e 0d 0e |.\"..\"!|...\"...|
|00001e60| 0e 5c 22 88 29 8a e4 65 | 21 88 64 62 88 e5 20 88 |.\".)..e|!.db.. .|
|00001e70| 29 e6 d1 21 88 e7 20 2e | 08 87 22 20 5b 6d 69 6d |)..!.. .|.." [mim|
|00001e80| 65 2d 61 72 74 69 63 6c | 65 2f 70 6f 69 6e 74 2d |e-articl|e/point-|
|00001e90| 63 6f 6e 74 65 6e 74 2d | 6e 75 6d 62 65 72 20 62 |content-|number b|
|00001ea0| 65 67 20 63 6e 75 6d 20 | 63 75 72 2d 62 75 66 20 |eg cnum |cur-buf |
|00001eb0| 66 6f 72 6d 61 74 20 22 | 25 73 2d 25 73 22 20 62 |format "|%s-%s" b|
|00001ec0| 75 66 66 65 72 2d 6e 61 | 6d 65 20 6e 65 77 2d 6e |uffer-na|me new-n|
|00001ed0| 61 6d 65 20 6d 69 6d 65 | 3a 3a 61 72 74 69 63 6c |ame mime|::articl|
|00001ee0| 65 2f 70 72 65 76 69 65 | 77 2d 62 75 66 66 65 72 |e/previe|w-buffer|
|00001ef0| 20 6d 6f 74 68 65 72 20 | 61 73 73 6f 63 20 22 63 | mother |assoc "c|
|00001f00| 68 61 72 73 65 74 22 20 | 63 61 6c 20 63 68 61 72 |harset" |cal char|
|00001f10| 73 65 74 20 65 6e 63 6f | 64 69 6e 67 20 6d 61 6a |set enco|ding maj|
|00001f20| 6f 72 2d 6d 6f 64 65 20 | 6d 6f 64 65 20 6e 69 6c |or-mode |mode nil|
|00001f30| 20 73 74 72 20 65 6e 64 | 20 67 65 74 2d 62 75 66 | str end| get-buf|
|00001f40| 66 65 72 2d 77 69 6e 64 | 6f 77 20 67 65 74 2d 6c |fer-wind|ow get-l|
|00001f50| 61 72 67 65 73 74 2d 77 | 69 6e 64 6f 77 20 67 65 |argest-w|indow ge|
|00001f60| 74 2d 62 75 66 66 65 72 | 2d 63 72 65 61 74 65 20 |t-buffer|-create |
|00001f70| 62 75 66 20 70 77 69 6e | 20 73 65 74 2d 77 69 6e |buf pwin| set-win|
|00001f80| 64 6f 77 2d 62 75 66 66 | 65 72 20 73 65 6c 65 63 |dow-buff|er selec|
|00001f90| 74 2d 77 69 6e 64 6f 77 | 20 62 75 66 66 65 72 2d |t-window| buffer-|
|00001fa0| 72 65 61 64 2d 6f 6e 6c | 79 20 65 72 61 73 65 2d |read-onl|y erase-|
|00001fb0| 62 75 66 66 65 72 20 72 | 65 2d 73 65 61 72 63 68 |buffer r|e-search|
|00001fc0| 2d 66 6f 72 77 61 72 64 | 20 22 5e 5c 6e 22 20 74 |-forward| "^\n" t|
|00001fd0| 20 30 20 6d 69 6d 65 2d | 76 69 65 77 65 72 2f 63 | 0 mime-|viewer/c|
|00001fe0| 6f 64 65 2d 63 6f 6e 76 | 65 72 74 65 72 2d 61 6c |ode-conv|erter-al|
|00001ff0| 69 73 74 20 6d 20 66 75 | 6e 63 74 69 6f 6e 70 20 |ist m fu|nctionp |
|00002000| 73 65 74 2d 6d 61 72 6b | 20 74 6d 3a 63 61 65 73 |set-mark| tm:caes|
|00002010| 61 72 2d 72 65 67 69 6f | 6e 20 73 65 74 2d 62 75 |ar-regio|n set-bu|
|00002020| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00002030| 6d 69 6d 65 2d 76 69 65 | 77 2d 74 65 78 74 2f 70 |mime-vie|w-text/p|
|00002040| 6c 61 69 6e 2d 6d 6f 64 | 65 5d 20 34 5d 29 0a 28 |lain-mod|e] 4]).(|
|00002050| 70 72 6f 76 69 64 65 20 | 27 74 6d 2d 70 6c 61 79 |provide |'tm-play|
|00002060| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+